/ Amiga Format CD 7 / Amiga Format AFCD07 (Dec 1996, Issue 91).iso / serious / shareware / programming / emacs-complete / fsf / emacs / lisp / desktop.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 72 6f 6c 61 6e 64 40 |piled by| roland@|
|00000020| 63 68 75 72 63 68 79 2e | 67 6e 75 2e 61 69 2e 6d |churchy.|gnu.ai.m|
|00000030| 69 74 2e 65 64 75 20 6f | 6e 20 46 72 69 20 4a 75 |it.edu o|n Fri Ju|
|00000040| 6c 20 20 38 20 31 35 3a | 35 38 3a 30 34 20 31 39 |l  8 15:|58:04 19|
|00000050| 39 34 0a 3b 3b 3b 20 66 | 72 6f 6d 20 66 69 6c 65 |94.;;; f|rom file|
|00000060| 20 2f 67 64 2f 67 6e 75 | 2f 65 6d 61 63 73 2f 31 | /gd/gnu|/emacs/1|
|00000070| 39 2e 30 2f 6c 69 73 70 | 2f 64 65 73 6b 74 6f 70 |9.0/lisp|/desktop|
|00000080| 2e 65 6c 0a 3b 3b 3b 20 | 65 6d 61 63 73 20 76 65 |.el.;;; |emacs ve|
|00000090| 72 73 69 6f 6e 20 31 39 | 2e 32 35 2e 31 32 2e 0a |rsion 19|.25.12..|
|000000a0| 3b 3b 3b 20 62 79 74 65 | 63 6f 6d 70 20 76 65 72 |;;; byte|comp ver|
|000000b0| 73 69 6f 6e 20 46 53 46 | 20 32 2e 31 30 0a 3b 3b |sion FSF| 2.10.;;|
|000000c0| 3b 20 6f 70 74 69 6d 69 | 7a 61 74 69 6f 6e 20 69 |; optimi|zation i|
|000000d0| 73 20 6f 6e 2e 0a 3b 3b | 3b 20 74 68 69 73 20 66 |s on..;;|; this f|
|000000e0| 69 6c 65 20 75 73 65 73 | 20 6f 70 63 6f 64 65 73 |ile uses| opcodes|
|000000f0| 20 77 68 69 63 68 20 64 | 6f 20 6e 6f 74 20 65 78 | which d|o not ex|
|00000100| 69 73 74 20 69 6e 20 45 | 6d 61 63 73 20 31 38 2e |ist in E|macs 18.|
|00000110| 0a 0a 28 69 66 20 28 61 | 6e 64 20 28 62 6f 75 6e |..(if (a|nd (boun|
|00000120| 64 70 20 27 65 6d 61 63 | 73 2d 76 65 72 73 69 6f |dp 'emac|s-versio|
|00000130| 6e 29 0a 09 20 28 6f 72 | 20 28 61 6e 64 20 28 62 |n).. (or| (and (b|
|00000140| 6f 75 6e 64 70 20 27 65 | 70 6f 63 68 3a 3a 76 65 |oundp 'e|poch::ve|
|00000150| 72 73 69 6f 6e 29 20 65 | 70 6f 63 68 3a 3a 76 65 |rsion) e|poch::ve|
|00000160| 72 73 69 6f 6e 29 0a 09 | 20 20 20 20 20 28 73 74 |rsion)..|     (st|
|00000170| 72 69 6e 67 2d 6c 65 73 | 73 70 20 65 6d 61 63 73 |ring-les|sp emacs|
|00000180| 2d 76 65 72 73 69 6f 6e | 20 22 31 39 22 29 29 29 |-version| "19")))|
|00000190| 0a 20 20 20 20 28 65 72 | 72 6f 72 20 22 60 2f 67 |.    (er|ror "`/g|
|000001a0| 64 2f 67 6e 75 2f 65 6d | 61 63 73 2f 31 39 2e 30 |d/gnu/em|acs/19.0|
|000001b0| 2f 6c 69 73 70 2f 64 65 | 73 6b 74 6f 70 2e 65 6c |/lisp/de|sktop.el|
|000001c0| 27 20 77 61 73 20 63 6f | 6d 70 69 6c 65 64 20 66 |' was co|mpiled f|
|000001d0| 6f 72 20 45 6d 61 63 73 | 20 31 39 22 29 29 0a 0a |or Emacs| 19"))..|
|000001e0| 28 64 65 66 63 6f 6e 73 | 74 20 64 65 73 6b 74 6f |(defcons|t deskto|
|000001f0| 70 2d 62 61 73 65 66 69 | 6c 65 6e 61 6d 65 20 28 |p-basefi|lename (|
|00000200| 62 79 74 65 2d 63 6f 64 | 65 20 22 08 c1 3d 83 08 |byte-cod|e "..=..|
|00000210| 00 c2 87 c3 87 22 20 5b | 73 79 73 74 65 6d 2d 74 |....." [|system-t|
|00000220| 79 70 65 20 6d 73 2d 64 | 6f 73 20 22 65 6d 61 63 |ype ms-d|os "emac|
|00000230| 73 2e 64 73 6b 22 20 22 | 2e 65 6d 61 63 73 2e 64 |s.dsk" "|.emacs.d|
|00000240| 65 73 6b 74 6f 70 22 5d | 20 32 29 20 22 5c 0a 46 |esktop"]| 2) "\.F|
|00000250| 69 6c 65 20 66 6f 72 20 | 45 6d 61 63 73 20 64 65 |ile for |Emacs de|
|00000260| 73 6b 74 6f 70 2e 20 20 | 41 20 64 69 72 65 63 74 |sktop.  |A direct|
|00000270| 6f 72 79 20 6e 61 6d 65 | 20 77 69 6c 6c 20 62 65 |ory name| will be|
|00000280| 20 70 72 65 70 65 6e 64 | 65 64 20 74 6f 20 74 68 | prepend|ed to th|
|00000290| 69 73 20 6e 61 6d 65 2e | 22 29 0a 28 64 65 66 76 |is name.|").(defv|
|000002a0| 61 72 20 64 65 73 6b 74 | 6f 70 2d 6d 69 73 73 69 |ar deskt|op-missi|
|000002b0| 6e 67 2d 66 69 6c 65 2d | 77 61 72 6e 69 6e 67 20 |ng-file-|warning |
|000002c0| 74 20 22 5c 0a 2a 49 66 | 20 6e 6f 6e 2d 6e 69 6c |t "\.*If| non-nil|
|000002d0| 20 74 68 65 6e 20 69 73 | 73 75 65 20 77 61 72 6e | then is|sue warn|
|000002e0| 69 6e 67 20 69 66 20 61 | 20 66 69 6c 65 20 6e 6f |ing if a| file no|
|000002f0| 20 6c 6f 6e 67 65 72 20 | 65 78 69 73 74 73 2e 0a | longer |exists..|
|00000300| 4f 74 68 65 72 77 69 73 | 65 20 73 69 6d 70 6c 79 |Otherwis|e simply|
|00000310| 20 69 67 6e 6f 72 65 20 | 74 68 65 20 66 69 6c 65 | ignore |the file|
|00000320| 2e 22 29 0a 28 64 65 66 | 76 61 72 20 64 65 73 6b |.").(def|var desk|
|00000330| 74 6f 70 2d 67 6c 6f 62 | 61 6c 73 2d 74 6f 2d 73 |top-glob|als-to-s|
|00000340| 61 76 65 20 28 6c 69 73 | 74 20 28 71 75 6f 74 65 |ave (lis|t (quote|
|00000350| 20 64 65 73 6b 74 6f 70 | 2d 6d 69 73 73 69 6e 67 | desktop|-missing|
|00000360| 2d 66 69 6c 65 2d 77 61 | 72 6e 69 6e 67 29 20 28 |-file-wa|rning) (|
|00000370| 71 75 6f 74 65 20 74 61 | 67 73 2d 66 69 6c 65 2d |quote ta|gs-file-|
|00000380| 6e 61 6d 65 29 20 28 71 | 75 6f 74 65 20 74 61 67 |name) (q|uote tag|
|00000390| 73 2d 74 61 62 6c 65 2d | 6c 69 73 74 29 20 28 71 |s-table-|list) (q|
|000003a0| 75 6f 74 65 20 73 65 61 | 72 63 68 2d 72 69 6e 67 |uote sea|rch-ring|
|000003b0| 29 20 28 71 75 6f 74 65 | 20 72 65 67 65 78 70 2d |) (quote| regexp-|
|000003c0| 73 65 61 72 63 68 2d 72 | 69 6e 67 29 20 28 71 75 |search-r|ing) (qu|
|000003d0| 6f 74 65 20 72 65 67 69 | 73 74 65 72 2d 61 6c 69 |ote regi|ster-ali|
|000003e0| 73 74 29 29 20 22 5c 0a | 4c 69 73 74 20 6f 66 20 |st)) "\.|List of |
|000003f0| 67 6c 6f 62 61 6c 20 76 | 61 72 69 61 62 6c 65 73 |global v|ariables|
|00000400| 20 74 6f 20 73 61 76 65 | 20 77 68 65 6e 20 6b 69 | to save| when ki|
|00000410| 6c 6c 69 6e 67 20 45 6d | 61 63 73 2e 22 29 0a 28 |lling Em|acs.").(|
|00000420| 64 65 66 76 61 72 20 64 | 65 73 6b 74 6f 70 2d 6c |defvar d|esktop-l|
|00000430| 6f 63 61 6c 73 2d 74 6f | 2d 73 61 76 65 20 28 6c |ocals-to|-save (l|
|00000440| 69 73 74 20 28 71 75 6f | 74 65 20 64 65 73 6b 74 |ist (quo|te deskt|
|00000450| 6f 70 2d 6c 6f 63 61 6c | 73 2d 74 6f 2d 73 61 76 |op-local|s-to-sav|
|00000460| 65 29 20 28 71 75 6f 74 | 65 20 74 72 75 6e 63 61 |e) (quot|e trunca|
|00000470| 74 65 2d 6c 69 6e 65 73 | 29 20 28 71 75 6f 74 65 |te-lines|) (quote|
|00000480| 20 63 61 73 65 2d 66 6f | 6c 64 2d 73 65 61 72 63 | case-fo|ld-searc|
|00000490| 68 29 20 28 71 75 6f 74 | 65 20 63 61 73 65 2d 72 |h) (quot|e case-r|
|000004a0| 65 70 6c 61 63 65 29 20 | 28 71 75 6f 74 65 20 66 |eplace) |(quote f|
|000004b0| 69 6c 6c 2d 63 6f 6c 75 | 6d 6e 29 20 28 71 75 6f |ill-colu|mn) (quo|
|000004c0| 74 65 20 6f 76 65 72 77 | 72 69 74 65 2d 6d 6f 64 |te overw|rite-mod|
|000004d0| 65 29 20 28 71 75 6f 74 | 65 20 63 68 61 6e 67 65 |e) (quot|e change|
|000004e0| 2d 6c 6f 67 2d 64 65 66 | 61 75 6c 74 2d 6e 61 6d |-log-def|ault-nam|
|000004f0| 65 29 20 28 71 75 6f 74 | 65 20 6c 69 6e 65 2d 6e |e) (quot|e line-n|
|00000500| 75 6d 62 65 72 2d 6d 6f | 64 65 29 29 20 22 5c 0a |umber-mo|de)) "\.|
|00000510| 4c 69 73 74 20 6f 66 20 | 6c 6f 63 61 6c 20 76 61 |List of |local va|
|00000520| 72 69 61 62 6c 65 73 20 | 74 6f 20 73 61 76 65 20 |riables |to save |
|00000530| 66 6f 72 20 65 61 63 68 | 20 62 75 66 66 65 72 2e |for each| buffer.|
|00000540| 20 20 54 68 65 20 76 61 | 72 69 61 62 6c 65 73 20 |  The va|riables |
|00000550| 61 72 65 20 73 61 76 65 | 64 0a 6f 6e 6c 79 20 77 |are save|d.only w|
|00000560| 68 65 6e 20 74 68 65 79 | 20 72 65 61 6c 6c 79 20 |hen they| really |
|00000570| 61 72 65 20 6c 6f 63 61 | 6c 2e 22 29 0a 28 6d 61 |are loca|l.").(ma|
|00000580| 6b 65 2d 76 61 72 69 61 | 62 6c 65 2d 62 75 66 66 |ke-varia|ble-buff|
|00000590| 65 72 2d 6c 6f 63 61 6c | 20 28 71 75 6f 74 65 20 |er-local| (quote |
|000005a0| 64 65 73 6b 74 6f 70 2d | 6c 6f 63 61 6c 73 2d 74 |desktop-|locals-t|
|000005b0| 6f 2d 73 61 76 65 29 29 | 0a 28 64 65 66 76 61 72 |o-save))|.(defvar|
|000005c0| 20 64 65 73 6b 74 6f 70 | 2d 62 75 66 66 65 72 73 | desktop|-buffers|
|000005d0| 2d 6e 6f 74 2d 74 6f 2d | 73 61 76 65 20 22 5c 5c |-not-to-|save "\\|
|000005e0| 28 5e 6e 6e 5c 5c 2e 61 | 5b 30 2d 39 5d 2b 5c 5c |(^nn\\.a|[0-9]+\\|
|000005f0| 7c 5c 5c 2e 6c 6f 67 5c | 5c 7c 28 66 74 70 29 5c ||\\.log\|\|(ftp)\|
|00000600| 5c 7c 5e 74 61 67 73 5c | 5c 7c 5e 54 41 47 53 5c |\|^tags\|\|^TAGS\|
|00000610| 5c 29 24 22 20 22 5c 0a | 52 65 67 65 78 70 20 69 |\)$" "\.|Regexp i|
|00000620| 64 65 6e 74 69 66 79 69 | 6e 67 20 62 75 66 66 65 |dentifyi|ng buffe|
|00000630| 72 73 20 74 68 61 74 20 | 61 72 65 20 74 6f 20 62 |rs that |are to b|
|00000640| 65 20 65 78 63 6c 75 64 | 65 64 20 66 72 6f 6d 20 |e exclud|ed from |
|00000650| 73 61 76 69 6e 67 2e 22 | 29 0a 28 64 65 66 76 61 |saving."|).(defva|
|00000660| 72 20 64 65 73 6b 74 6f | 70 2d 66 69 6c 65 73 2d |r deskto|p-files-|
|00000670| 6e 6f 74 2d 74 6f 2d 73 | 61 76 65 20 22 5e 2f 5b |not-to-s|ave "^/[|
|00000680| 5e 2f 3a 5d 2a 3a 22 20 | 22 5c 0a 52 65 67 65 78 |^/:]*:" |"\.Regex|
|00000690| 70 20 69 64 65 6e 74 69 | 66 79 69 6e 67 20 66 69 |p identi|fying fi|
|000006a0| 6c 65 73 20 77 68 6f 73 | 65 20 62 75 66 66 65 72 |les whos|e buffer|
|000006b0| 73 20 61 72 65 20 74 6f | 20 62 65 20 65 78 63 6c |s are to| be excl|
|000006c0| 75 64 65 64 20 66 72 6f | 6d 20 73 61 76 69 6e 67 |uded fro|m saving|
|000006d0| 2e 22 29 0a 28 64 65 66 | 76 61 72 20 64 65 73 6b |.").(def|var desk|
|000006e0| 74 6f 70 2d 62 75 66 66 | 65 72 2d 68 61 6e 64 6c |top-buff|er-handl|
|000006f0| 65 72 73 20 28 71 75 6f | 74 65 20 28 64 65 73 6b |ers (quo|te (desk|
|00000700| 74 6f 70 2d 62 75 66 66 | 65 72 2d 64 69 72 65 64 |top-buff|er-dired|
|00000710| 20 64 65 73 6b 74 6f 70 | 2d 62 75 66 66 65 72 2d | desktop|-buffer-|
|00000720| 72 6d 61 69 6c 20 64 65 | 73 6b 74 6f 70 2d 62 75 |rmail de|sktop-bu|
|00000730| 66 66 65 72 2d 6d 68 20 | 64 65 73 6b 74 6f 70 2d |ffer-mh |desktop-|
|00000740| 62 75 66 66 65 72 2d 69 | 6e 66 6f 20 64 65 73 6b |buffer-i|nfo desk|
|00000750| 74 6f 70 2d 62 75 66 66 | 65 72 2d 66 69 6c 65 29 |top-buff|er-file)|
|00000760| 29 20 22 5c 0a 2a 4c 69 | 73 74 20 6f 66 20 66 75 |) "\.*Li|st of fu|
|00000770| 6e 63 74 69 6f 6e 73 20 | 74 6f 20 63 61 6c 6c 20 |nctions |to call |
|00000780| 69 6e 20 6f 72 64 65 72 | 20 74 6f 20 63 72 65 61 |in order| to crea|
|00000790| 74 65 20 61 20 62 75 66 | 66 65 72 2e 20 20 54 68 |te a buf|fer.  Th|
|000007a0| 65 20 66 75 6e 63 74 69 | 6f 6e 73 20 61 72 65 0a |e functi|ons are.|
|000007b0| 63 61 6c 6c 65 64 20 77 | 69 74 68 6f 75 74 20 65 |called w|ithout e|
|000007c0| 78 70 6c 69 63 69 74 20 | 70 61 72 61 6d 65 74 65 |xplicit |paramete|
|000007d0| 72 73 20 62 75 74 20 6d | 61 79 20 61 63 63 65 73 |rs but m|ay acces|
|000007e0| 73 20 74 68 65 20 74 68 | 65 20 6d 61 6a 6f 72 20 |s the th|e major |
|000007f0| 6d 6f 64 65 20 61 73 20 | 60 6d 61 6d 27 2c 0a 74 |mode as |`mam',.t|
|00000800| 68 65 20 66 69 6c 65 20 | 6e 61 6d 65 20 61 73 20 |he file |name as |
|00000810| 60 66 6e 27 2c 20 74 68 | 65 20 62 75 66 66 65 72 |`fn', th|e buffer|
|00000820| 20 6e 61 6d 65 20 61 73 | 20 60 62 6e 27 2c 20 74 | name as| `bn', t|
|00000830| 68 65 20 64 65 66 61 75 | 6c 74 20 64 69 72 65 63 |he defau|lt direc|
|00000840| 74 6f 72 79 20 61 73 0a | 60 64 64 27 2e 20 20 49 |tory as.|`dd'.  I|
|00000850| 66 20 73 6f 6d 65 20 66 | 75 6e 63 74 69 6f 6e 20 |f some f|unction |
|00000860| 72 65 74 75 72 6e 73 20 | 6e 6f 6e 2d 6e 69 6c 20 |returns |non-nil |
|00000870| 6e 6f 20 66 75 72 74 68 | 65 72 20 66 75 6e 63 74 |no furth|er funct|
|00000880| 69 6f 6e 73 20 61 72 65 | 20 63 61 6c 6c 65 64 2e |ions are| called.|
|00000890| 0a 49 66 20 74 68 65 20 | 66 75 6e 63 74 69 6f 6e |.If the |function|
|000008a0| 20 72 65 74 75 72 6e 73 | 20 74 20 74 68 65 6e 20 | returns| t then |
|000008b0| 74 68 65 20 62 75 66 66 | 65 72 20 69 73 20 63 6f |the buff|er is co|
|000008c0| 6e 73 69 64 65 72 65 64 | 20 63 72 65 61 74 65 64 |nsidered| created|
|000008d0| 2e 22 29 0a 28 64 65 66 | 76 61 72 20 64 65 73 6b |.").(def|var desk|
|000008e0| 74 6f 70 2d 63 72 65 61 | 74 65 2d 62 75 66 66 65 |top-crea|te-buffe|
|000008f0| 72 2d 66 6f 72 6d 20 22 | 28 64 65 73 6b 74 6f 70 |r-form "|(desktop|
|00000900| 2d 63 72 65 61 74 65 2d | 62 75 66 66 65 72 20 32 |-create-|buffer 2|
|00000910| 30 35 22 20 22 5c 0a 4f | 70 65 6e 69 6e 67 20 6f |05" "\.O|pening o|
|00000920| 66 20 66 6f 72 6d 20 66 | 6f 72 20 63 72 65 61 74 |f form f|or creat|
|00000930| 69 6f 6e 20 6f 66 20 6e | 65 77 20 62 75 66 66 65 |ion of n|ew buffe|
|00000940| 72 73 2e 22 29 0a 28 64 | 65 66 76 61 72 20 64 65 |rs.").(d|efvar de|
|00000950| 73 6b 74 6f 70 2d 73 61 | 76 65 2d 68 6f 6f 6b 20 |sktop-sa|ve-hook |
|00000960| 6e 69 6c 20 22 5c 0a 48 | 6f 6f 6b 20 72 75 6e 20 |nil "\.H|ook run |
|00000970| 62 65 66 6f 72 65 20 73 | 61 76 69 6e 67 20 74 68 |before s|aving th|
|00000980| 65 20 64 65 73 6b 74 6f | 70 20 74 6f 20 61 6c 6c |e deskto|p to all|
|00000990| 6f 77 20 79 6f 75 20 74 | 6f 20 63 75 74 20 68 69 |ow you t|o cut hi|
|000009a0| 73 74 6f 72 79 20 6c 69 | 73 74 73 20 61 6e 64 0a |story li|sts and.|
|000009b0| 74 68 65 20 6c 69 6b 65 | 20 73 68 6f 72 74 65 72 |the like| shorter|
|000009c0| 2e 22 29 0a 28 64 65 66 | 76 61 72 20 64 65 73 6b |.").(def|var desk|
|000009d0| 74 6f 70 2d 64 69 72 6e | 61 6d 65 20 6e 69 6c 20 |top-dirn|ame nil |
|000009e0| 22 5c 0a 54 68 65 20 64 | 69 72 65 63 74 6f 72 79 |"\.The d|irectory|
|000009f0| 20 69 6e 20 77 68 69 63 | 68 20 74 68 65 20 63 75 | in whic|h the cu|
|00000a00| 72 72 65 6e 74 20 64 65 | 73 6b 74 6f 70 20 66 69 |rrent de|sktop fi|
|00000a10| 6c 65 20 72 65 73 69 64 | 65 73 2e 22 29 0a 28 64 |le resid|es.").(d|
|00000a20| 65 66 63 6f 6e 73 74 20 | 64 65 73 6b 74 6f 70 2d |efconst |desktop-|
|00000a30| 68 65 61 64 65 72 20 22 | 3b 3b 20 2d 2d 2d 2d 2d |header "|;; -----|
|00000a40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000a50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000a60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000a70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000a80| 2d 2d 2d 2d 2d 5c 6e 3b | 3b 20 44 65 73 6b 74 6f |-----\n;|; Deskto|
|00000a90| 70 20 46 69 6c 65 20 66 | 6f 72 20 45 6d 61 63 73 |p File f|or Emacs|
|00000aa0| 5c 6e 3b 3b 20 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |\n;; ---|--------|
|00000ab0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000ac0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000ad0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000ae0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 5c |--------|-------\|
|00000af0| 6e 22 20 22 5c 0a 2a 48 | 65 61 64 65 72 20 74 6f |n" "\.*H|eader to|
|00000b00| 20 70 6c 61 63 65 20 69 | 6e 20 44 65 73 6b 74 6f | place i|n Deskto|
|00000b10| 70 20 66 69 6c 65 2e 22 | 29 0a 28 64 65 66 76 61 |p file."|).(defva|
|00000b20| 72 20 64 65 73 6b 74 6f | 70 2d 64 65 6c 61 79 2d |r deskto|p-delay-|
|00000b30| 68 6f 6f 6b 20 6e 69 6c | 20 22 5c 0a 48 6f 6f 6b |hook nil| "\.Hook|
|00000b40| 73 20 72 75 6e 20 61 66 | 74 65 72 20 61 6c 6c 20 |s run af|ter all |
|00000b50| 62 75 66 66 65 72 73 20 | 61 72 65 20 6c 6f 61 64 |buffers |are load|
|00000b60| 65 64 3b 20 69 6e 74 65 | 6e 64 65 64 20 66 6f 72 |ed; inte|nded for|
|00000b70| 20 69 6e 74 65 72 6e 61 | 6c 20 75 73 65 2e 22 29 | interna|l use.")|
|00000b80| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 64 65 73 6b |.(defali|as 'desk|
|00000b90| 74 6f 70 2d 74 72 75 6e | 63 61 74 65 20 23 5b 28 |top-trun|cate #[(|
|00000ba0| 6c 20 6e 29 20 22 08 53 | 09 9b 89 1a 3a 85 0d 00 |l n) ".S|....:...|
|00000bb0| 5c 6e c3 a1 29 87 22 20 | 5b 6e 20 6c 20 68 65 72 |\n..)." |[n l her|
|00000bc0| 65 20 6e 69 6c 5d 20 33 | 20 22 5c 0a 54 72 75 6e |e nil] 3| "\.Trun|
|00000bd0| 63 61 74 65 20 4c 49 53 | 54 20 74 6f 20 61 74 20 |cate LIS|T to at |
|00000be0| 6d 6f 73 74 20 4e 20 65 | 6c 65 6d 65 6e 74 73 20 |most N e|lements |
|00000bf0| 64 65 73 74 72 75 63 74 | 69 76 65 6c 79 2e 22 5d |destruct|ively."]|
|00000c00| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 64 65 73 |).(defal|ias 'des|
|00000c10| 6b 74 6f 70 2d 63 6c 65 | 61 72 20 23 5b 6e 69 6c |ktop-cle|ar #[nil|
|00000c20| 20 22 c0 11 c0 12 c0 13 | c0 14 c0 15 c0 16 06 c7 | "......|........|
|00000c30| c8 c9 20 5c 22 88 ca 20 | 87 22 20 5b 6e 69 6c 20 |.. \".. |." [nil |
|00000c40| 6b 69 6c 6c 2d 72 69 6e | 67 20 6b 69 6c 6c 2d 72 |kill-rin|g kill-r|
|00000c50| 69 6e 67 2d 79 61 6e 6b | 2d 70 6f 69 6e 74 65 72 |ing-yank|-pointer|
|00000c60| 20 73 65 61 72 63 68 2d | 72 69 6e 67 20 73 65 61 | search-|ring sea|
|00000c70| 72 63 68 2d 72 69 6e 67 | 2d 79 61 6e 6b 2d 70 6f |rch-ring|-yank-po|
|00000c80| 69 6e 74 65 72 20 72 65 | 67 65 78 70 2d 73 65 61 |inter re|gexp-sea|
|00000c90| 72 63 68 2d 72 69 6e 67 | 20 72 65 67 65 78 70 2d |rch-ring| regexp-|
|00000ca0| 73 65 61 72 63 68 2d 72 | 69 6e 67 2d 79 61 6e 6b |search-r|ing-yank|
|00000cb0| 2d 70 6f 69 6e 74 65 72 | 20 6d 61 70 63 61 72 20 |-pointer| mapcar |
|00000cc0| 6b 69 6c 6c 2d 62 75 66 | 66 65 72 20 62 75 66 66 |kill-buf|fer buff|
|00000cd0| 65 72 2d 6c 69 73 74 20 | 64 65 6c 65 74 65 2d 6f |er-list |delete-o|
|00000ce0| 74 68 65 72 2d 77 69 6e | 64 6f 77 73 5d 20 33 20 |ther-win|dows] 3 |
|00000cf0| 22 5c 0a 45 6d 70 74 79 | 20 74 68 65 20 44 65 73 |"\.Empty| the Des|
|00000d00| 6b 74 6f 70 2e 22 20 6e | 69 6c 5d 29 0a 28 62 79 |ktop." n|il]).(by|
|00000d10| 74 65 2d 63 6f 64 65 20 | 22 c0 c1 c2 5c 22 88 c3 |te-code |"...\"..|
|00000d20| c2 c4 5c 22 87 22 20 5b | 61 64 64 2d 68 6f 6f 6b |..\"." [|add-hook|
|00000d30| 20 6b 69 6c 6c 2d 65 6d | 61 63 73 2d 68 6f 6f 6b | kill-em|acs-hook|
|00000d40| 20 64 65 73 6b 74 6f 70 | 2d 6b 69 6c 6c 20 64 65 | desktop|-kill de|
|00000d50| 66 61 6c 69 61 73 20 23 | 5b 6e 69 6c 20 22 08 85 |falias #|[nil "..|
|00000d60| 08 00 c1 c2 c3 8f 87 22 | 20 5b 64 65 73 6b 74 6f |......."| [deskto|
|00000d70| 70 2d 64 69 72 6e 61 6d | 65 20 65 72 72 20 28 64 |p-dirnam|e err (d|
|00000d80| 65 73 6b 74 6f 70 2d 73 | 61 76 65 20 64 65 73 6b |esktop-s|ave desk|
|00000d90| 74 6f 70 2d 64 69 72 6e | 61 6d 65 29 20 28 28 66 |top-dirn|ame) ((f|
|00000da0| 69 6c 65 2d 65 72 72 6f | 72 20 28 62 79 74 65 2d |ile-erro|r (byte-|
|00000db0| 63 6f 64 65 20 22 c0 c1 | 21 3f 85 0d 00 c2 0b 40 |code "..|!?.....@|
|00000dc0| 0b 41 5c 22 87 22 20 5b | 79 65 73 2d 6f 72 2d 6e |.A\"." [|yes-or-n|
|00000dd0| 6f 2d 70 20 22 45 72 72 | 6f 72 20 77 68 69 6c 65 |o-p "Err|or while|
|00000de0| 20 73 61 76 69 6e 67 20 | 74 68 65 20 64 65 73 6b | saving |the desk|
|00000df0| 74 6f 70 2e 20 20 51 75 | 69 74 20 61 6e 79 77 61 |top.  Qu|it anywa|
|00000e00| 79 3f 20 22 20 73 69 67 | 6e 61 6c 20 65 72 72 5d |y? " sig|nal err]|
|00000e10| 20 33 29 29 29 5d 20 33 | 5d 5d 20 33 29 0a 28 64 | 3)))] 3|]] 3).(d|
|00000e20| 65 66 61 6c 69 61 73 20 | 27 64 65 73 6b 74 6f 70 |efalias |'desktop|
|00000e30| 2d 69 6e 74 65 72 6e 61 | 6c 2d 76 32 73 20 23 5b |-interna|l-v2s #[|
|00000e40| 28 76 61 6c 29 20 22 08 | a7 84 14 00 08 3b 84 14 |(val) ".|.....;..|
|00000e50| 00 08 83 14 00 08 c1 3d | 83 1a 00 c2 c3 08 21 42 |.......=|......!B|
|00000e60| 87 08 39 83 25 00 c4 c3 | 08 21 42 87 c5 08 21 83 |..9.%...|.!B...!.|
|00000e70| 54 00 c6 1e 07 c8 c9 08 | 5c 22 1e 5c 6e 0e 07 83 |T.......|\".\n...|
|00000e80| 47 00 c6 cb cc cd 0e 5c | 6e ce 23 cf 51 42 82 52 |G......\|n.#.QB.R|
|00000e90| 00 c2 d0 cc d1 0e 5c 6e | ce 23 d2 51 42 2a 87 08 |......\n|.#.QB*..|
|00000ea0| 3a 83 07 01 08 c6 89 1e | 13 1e 14 89 1e 15 3a 83 |:.......|......:.|
|00000eb0| 8a 00 d6 0e 15 40 21 1e | 17 0e 13 84 79 00 0e 17 |.....@!.|....y...|
|00000ec0| 40 3f 16 13 0e 17 0e 14 | 42 16 14 29 0e 15 41 89 |@?......|B..)..A.|
|00000ed0| 16 15 82 63 00 0e 15 83 | e2 00 d6 0e 15 21 0e 14 |...c....|.....!..|
|00000ee0| 40 1e 18 1e 19 0e 14 0e | 13 84 ab 00 0e 19 40 3f |@.......|......@?|
|00000ef0| 89 16 13 83 d5 00 c6 da | 0e 18 40 c4 3d 83 b9 00 |........|..@.=...|
|00000f00| db 82 ba 00 dc 0e 18 41 | ce 0e 19 40 c4 3d 83 ca |.......A|...@.=..|
|00000f10| 00 db 82 cb 00 dc 0e 19 | 41 cf b0 07 42 82 df 00 |........|A...B...|
|00000f20| c4 0e 18 41 dd 0e 19 41 | 51 42 a0 88 2a 0e 14 9f |...A...A|QB..*...|
|00000f30| 16 14 0e 13 83 fa 00 c6 | de cc df 0e 14 ce 23 cf |........|......#.|
|00000f40| 51 42 82 05 01 c4 e0 cc | d1 0e 14 ce 23 cf 51 42 |QB......|....#.QB|
|00000f50| 2b 87 e1 08 21 83 19 01 | c6 e2 c3 08 21 e3 e4 4f |+...!...|....!..O|
|00000f60| cf 51 42 87 e5 08 21 83 | 3e 01 c3 e6 08 21 21 c3 |.QB...!.|>....!!.|
|00000f70| e7 e8 08 21 21 21 1e 29 | 1e 2a c6 eb ec ed 0e 2a |...!!!.)|.*.....*|
|00000f80| ee 0e 29 ef b0 07 2a 42 | 87 c2 f0 42 87 22 20 5b |..)...*B|...B." [|
|00000f90| 76 61 6c 20 74 20 6d 61 | 79 20 70 72 69 6e 31 2d |val t ma|y prin1-|
|00000fa0| 74 6f 2d 73 74 72 69 6e | 67 20 6d 75 73 74 20 76 |to-strin|g must v|
|00000fb0| 65 63 74 6f 72 70 20 6e | 69 6c 20 73 70 65 63 69 |ectorp n|il speci|
|00000fc0| 61 6c 20 6d 61 70 63 61 | 72 20 23 5b 28 65 6c 29 |al mapca|r #[(el)|
|00000fd0| 20 22 c0 09 21 89 1a 40 | 84 0b 00 c3 14 5c 6e 29 | "..!..@|.....\n)|
|00000fe0| 87 22 20 5b 64 65 73 6b | 74 6f 70 2d 69 6e 74 65 |." [desk|top-inte|
|00000ff0| 72 6e 61 6c 2d 76 32 73 | 20 65 6c 20 72 65 73 20 |rnal-v2s| el res |
|00001000| 74 20 73 70 65 63 69 61 | 6c 5d 20 33 5d 20 70 61 |t specia|l] 3] pa|
|00001010| 73 73 31 20 22 28 76 65 | 63 74 6f 72 20 22 20 6d |ss1 "(ve|ctor " m|
|00001020| 61 70 63 6f 6e 63 61 74 | 20 23 5b 28 65 6c 29 20 |apconcat| #[(el) |
|00001030| 22 08 40 c1 3d 83 5c 66 | 00 c2 08 41 50 87 08 41 |".@.=.\f|...AP..A|
|00001040| 87 22 20 5b 65 6c 20 6d | 75 73 74 20 22 27 22 5d |." [el m|ust "'"]|
|00001050| 20 32 5d 20 22 20 22 20 | 22 29 22 20 22 5b 22 20 | 2] " " |")" "[" |
|00001060| 63 64 72 20 22 5d 22 20 | 61 6e 79 6e 69 6c 20 6e |cdr "]" |anynil n|
|00001070| 65 77 6c 69 73 74 20 70 | 20 64 65 73 6b 74 6f 70 |ewlist p| desktop|
|00001080| 2d 69 6e 74 65 72 6e 61 | 6c 2d 76 32 73 20 71 5c |-interna|l-v2s q\|
|00001090| 2e 74 78 74 20 65 6c 20 | 6c 61 73 74 20 22 28 63 |.txt el |last "(c|
|000010a0| 6f 6e 73 20 22 20 22 27 | 22 20 22 22 20 22 20 2e |ons " "'|" "" " .|
|000010b0| 20 22 20 22 28 6c 69 73 | 74 20 22 20 23 5b 28 65 | " "(lis|t " #[(e|
|000010c0| 6c 29 20 22 08 40 c1 3d | 83 5c 66 00 c2 08 41 50 |l) ".@.=|.\f...AP|
|000010d0| 87 08 41 87 22 20 5b 65 | 6c 20 6d 75 73 74 20 22 |..A." [e|l must "|
|000010e0| 27 22 5d 20 32 5d 20 22 | 28 22 20 73 75 62 72 70 |'"] 2] "|(" subrp|
|000010f0| 20 22 28 73 79 6d 62 6f | 6c 2d 66 75 6e 63 74 69 | "(symbo|l-functi|
|00001100| 6f 6e 20 27 22 20 37 20 | 2d 31 20 6d 61 72 6b 65 |on '" 7 |-1 marke|
|00001110| 72 70 20 6d 61 72 6b 65 | 72 2d 70 6f 73 69 74 69 |rp marke|r-positi|
|00001120| 6f 6e 20 62 75 66 66 65 | 72 2d 6e 61 6d 65 20 6d |on buffe|r-name m|
|00001130| 61 72 6b 65 72 2d 62 75 | 66 66 65 72 20 62 75 66 |arker-bu|ffer buf|
|00001140| 20 70 6f 73 20 22 28 6c | 65 74 20 28 28 6d 6b 20 | pos "(l|et ((mk |
|00001150| 28 6d 61 6b 65 2d 6d 61 | 72 6b 65 72 29 29 29 22 |(make-ma|rker)))"|
|00001160| 20 22 20 28 61 64 64 2d | 68 6f 6f 6b 20 27 64 65 | " (add-|hook 'de|
|00001170| 73 6b 74 6f 70 2d 64 65 | 6c 61 79 2d 68 6f 6f 6b |sktop-de|lay-hook|
|00001180| 22 20 22 20 28 6c 69 73 | 74 20 27 6c 61 6d 62 64 |" " (lis|t 'lambd|
|00001190| 61 20 27 28 29 20 28 6c | 69 73 74 20 27 73 65 74 |a '() (l|ist 'set|
|000011a0| 2d 6d 61 72 6b 65 72 20 | 6d 6b 20 22 20 22 20 28 |-marker |mk " " (|
|000011b0| 67 65 74 2d 62 75 66 66 | 65 72 20 22 20 22 29 29 |get-buff|er " "))|
|000011c0| 29 29 20 6d 6b 29 22 20 | 22 5c 22 55 6e 70 72 69 |)) mk)" |"\"Unpri|
|000011d0| 6e 74 61 62 6c 65 20 65 | 6e 74 69 74 79 5c 22 22 |ntable e|ntity\""|
|000011e0| 5d 20 31 30 20 22 5c 0a | 43 6f 6e 76 65 72 74 20 |] 10 "\.|Convert |
|000011f0| 56 41 4c 55 45 20 74 6f | 20 61 20 70 61 69 72 20 |VALUE to| a pair |
|00001200| 28 71 75 6f 74 65 20 2e | 20 74 78 74 29 20 77 68 |(quote .| txt) wh|
|00001210| 65 72 65 20 74 78 74 20 | 69 73 20 61 20 73 74 72 |ere txt |is a str|
|00001220| 69 6e 67 20 74 68 61 74 | 20 77 68 65 6e 20 72 65 |ing that| when re|
|00001230| 61 64 0a 61 6e 64 20 65 | 76 61 6c 75 61 74 65 64 |ad.and e|valuated|
|00001240| 20 79 69 65 6c 64 73 20 | 76 61 6c 75 65 2e 20 20 | yields |value.  |
|00001250| 71 75 6f 74 65 20 6d 61 | 79 20 62 65 20 27 6d 61 |quote ma|y be 'ma|
|00001260| 79 20 28 76 61 6c 75 65 | 20 6d 61 79 20 62 65 20 |y (value| may be |
|00001270| 71 75 6f 74 65 64 29 2c | 0a 27 6d 75 73 74 20 28 |quoted),|.'must (|
|00001280| 76 61 6c 75 65 73 20 6d | 75 73 74 20 62 65 20 71 |values m|ust be q|
|00001290| 75 6f 74 65 64 29 2c 20 | 6f 72 20 6e 69 6c 20 28 |uoted), |or nil (|
|000012a0| 76 61 6c 75 65 20 6d 61 | 79 20 6e 6f 74 20 62 65 |value ma|y not be|
|000012b0| 20 71 75 6f 74 65 64 29 | 2e 22 5d 29 0a 28 64 65 | quoted)|."]).(de|
|000012c0| 66 61 6c 69 61 73 20 27 | 64 65 73 6b 74 6f 70 2d |falias '|desktop-|
|000012d0| 76 61 6c 75 65 2d 74 6f | 2d 73 74 72 69 6e 67 20 |value-to|-string |
|000012e0| 23 5b 28 76 61 6c 29 20 | 22 c0 19 c2 1b c4 0d 21 |#[(val) |"......!|
|000012f0| 89 1e 06 40 1e 07 0e 06 | 41 1e 08 0e 07 c9 3d 83 |...@....|A.....=.|
|00001300| 20 00 ca 0e 08 50 82 5c | 22 00 0e 08 2d 87 22 20 | ....P.\|"...-." |
|00001310| 5b 74 20 70 72 69 6e 74 | 2d 65 73 63 61 70 65 2d |[t print|-escape-|
|00001320| 6e 65 77 6c 69 6e 65 73 | 20 6e 69 6c 20 66 6c 6f |newlines| nil flo|
|00001330| 61 74 2d 6f 75 74 70 75 | 74 2d 66 6f 72 6d 61 74 |at-outpu|t-format|
|00001340| 20 64 65 73 6b 74 6f 70 | 2d 69 6e 74 65 72 6e 61 | desktop|-interna|
|00001350| 6c 2d 76 32 73 20 76 61 | 6c 20 71 75 6f 74 65 5c |l-v2s va|l quote\|
|00001360| 2e 74 78 74 20 71 75 6f | 74 65 20 74 78 74 20 6d |.txt quo|te txt m|
|00001370| 75 73 74 20 22 27 22 5d | 20 33 20 22 5c 0a 43 6f |ust "'"]| 3 "\.Co|
|00001380| 6e 76 65 72 74 20 56 41 | 4c 55 45 20 74 6f 20 61 |nvert VA|LUE to a|
|00001390| 20 73 74 72 69 6e 67 20 | 74 68 61 74 20 77 68 65 | string |that whe|
|000013a0| 6e 20 72 65 61 64 20 65 | 76 61 6c 75 61 74 65 73 |n read e|valuates|
|000013b0| 20 74 6f 20 74 68 65 20 | 73 61 6d 65 20 76 61 6c | to the |same val|
|000013c0| 75 65 2e 20 20 4e 6f 74 | 0a 61 6c 6c 20 74 79 70 |ue.  Not|.all typ|
|000013d0| 65 73 20 6f 66 20 76 61 | 6c 75 65 73 20 61 72 65 |es of va|lues are|
|000013e0| 20 73 75 70 70 6f 72 74 | 65 64 2e 22 5d 29 0a 28 | support|ed."]).(|
|000013f0| 64 65 66 61 6c 69 61 73 | 20 27 64 65 73 6b 74 6f |defalias| 'deskto|
|00001400| 70 2d 6f 75 74 76 61 72 | 20 23 5b 28 76 61 72 29 |p-outvar| #[(var)|
|00001410| 20 22 c0 09 21 85 12 00 | c2 c3 09 21 c4 c5 09 4a | "..!...|...!...J|
|00001420| 21 c6 b1 05 87 22 20 5b | 62 6f 75 6e 64 70 20 76 |!...." [|boundp v|
|00001430| 61 72 20 22 28 73 65 74 | 71 20 22 20 73 79 6d 62 |ar "(set|q " symb|
|00001440| 6f 6c 2d 6e 61 6d 65 20 | 22 20 22 20 64 65 73 6b |ol-name |" " desk|
|00001450| 74 6f 70 2d 76 61 6c 75 | 65 2d 74 6f 2d 73 74 72 |top-valu|e-to-str|
|00001460| 69 6e 67 20 22 29 5c 6e | 22 5d 20 35 20 22 5c 0a |ing ")\n|"] 5 "\.|
|00001470| 4f 75 74 70 75 74 20 61 | 20 73 65 74 71 20 73 74 |Output a| setq st|
|00001480| 61 74 65 6d 65 6e 74 20 | 66 6f 72 20 56 41 52 20 |atement |for VAR |
|00001490| 74 6f 20 74 68 65 20 64 | 65 73 6b 74 6f 70 20 66 |to the d|esktop f|
|000014a0| 69 6c 65 2e 22 5d 29 0a | 28 64 65 66 61 6c 69 61 |ile."]).|(defalia|
|000014b0| 73 20 27 64 65 73 6b 74 | 6f 70 2d 73 61 76 65 2d |s 'deskt|op-save-|
|000014c0| 62 75 66 66 65 72 2d 70 | 20 23 5b 28 66 69 6c 65 |buffer-p| #[(file|
|000014d0| 6e 61 6d 65 20 62 75 66 | 6e 61 6d 65 20 6d 6f 64 |name buf|name mod|
|000014e0| 65 20 26 72 65 73 74 20 | 64 75 6d 6d 79 29 20 22 |e &rest |dummy) "|
|000014f0| c0 19 5c 6e 83 16 00 c3 | 5c 66 0d 5c 22 84 16 00 |..\n....|\f.\"...|
|00001500| c3 0e 06 5c 6e 5c 22 3f | 86 37 00 0e 07 c8 3d 83 |...\n\"?|.7....=.|
|00001510| 2e 00 8a c9 0d 21 71 88 | c3 0e 06 0e 5c 6e 5c 22 |.....!q.|....\n\"|
|00001520| 29 3f 86 37 00 5c 6e 3f | 85 37 00 0e 07 cb 3e 29 |)?.7.\n?|.7....>)|
|00001530| 87 22 20 5b 6e 69 6c 20 | 63 61 73 65 2d 66 6f 6c |." [nil |case-fol|
|00001540| 64 2d 73 65 61 72 63 68 | 20 66 69 6c 65 6e 61 6d |d-search| filenam|
|00001550| 65 20 73 74 72 69 6e 67 | 2d 6d 61 74 63 68 20 64 |e string|-match d|
|00001560| 65 73 6b 74 6f 70 2d 62 | 75 66 66 65 72 73 2d 6e |esktop-b|uffers-n|
|00001570| 6f 74 2d 74 6f 2d 73 61 | 76 65 20 62 75 66 6e 61 |ot-to-sa|ve bufna|
|00001580| 6d 65 20 64 65 73 6b 74 | 6f 70 2d 66 69 6c 65 73 |me deskt|op-files|
|00001590| 2d 6e 6f 74 2d 74 6f 2d | 73 61 76 65 20 6d 6f 64 |-not-to-|save mod|
|000015a0| 65 20 64 69 72 65 64 2d | 6d 6f 64 65 20 67 65 74 |e dired-|mode get|
|000015b0| 2d 62 75 66 66 65 72 20 | 64 65 66 61 75 6c 74 2d |-buffer |default-|
|000015c0| 64 69 72 65 63 74 6f 72 | 79 20 28 49 6e 66 6f 2d |director|y (Info-|
|000015d0| 6d 6f 64 65 20 72 6d 61 | 69 6c 2d 6d 6f 64 65 29 |mode rma|il-mode)|
|000015e0| 5d 20 33 20 22 5c 0a 52 | 65 74 75 72 6e 20 74 20 |] 3 "\.R|eturn t |
|000015f0| 69 66 20 74 68 65 20 64 | 65 73 6b 74 6f 70 20 73 |if the d|esktop s|
|00001600| 68 6f 75 6c 64 20 72 65 | 63 6f 72 64 20 61 20 70 |hould re|cord a p|
|00001610| 61 72 74 69 63 75 6c 61 | 72 20 62 75 66 66 65 72 |articula|r buffer|
|00001620| 20 66 6f 72 20 6e 65 78 | 74 20 73 74 61 72 74 75 | for nex|t startu|
|00001630| 70 2e 0a 46 49 4c 45 4e | 41 4d 45 20 69 73 20 74 |p..FILEN|AME is t|
|00001640| 68 65 20 76 69 73 69 74 | 65 64 20 66 69 6c 65 20 |he visit|ed file |
|00001650| 6e 61 6d 65 2c 20 42 55 | 46 4e 41 4d 45 20 69 73 |name, BU|FNAME is|
|00001660| 20 74 68 65 20 62 75 66 | 66 65 72 20 6e 61 6d 65 | the buf|fer name|
|00001670| 2c 20 61 6e 64 0a 4d 4f | 44 45 20 69 73 20 74 68 |, and.MO|DE is th|
|00001680| 65 20 6d 61 6a 6f 72 20 | 6d 6f 64 65 2e 22 5d 29 |e major |mode."])|
|00001690| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 64 65 73 6b |.(defali|as 'desk|
|000016a0| 74 6f 70 2d 73 61 76 65 | 20 23 5b 28 64 69 72 6e |top-save| #[(dirn|
|000016b0| 61 6d 65 29 20 22 c0 c1 | 21 88 8a c2 0b 5c 66 50 |ame) "..|!....\fP|
|000016c0| 21 c5 c6 c7 20 5c 22 9f | c8 c9 21 1e 5c 6e 1e 0b |!... \".|..!.\n..|
|000016d0| 1e 5c 66 0e 5c 6e 71 88 | cd 20 88 0e 0e cf d0 20 |.\f.\nq.|. ..... |
|000016e0| d1 d2 0e 13 d4 d5 b1 08 | 88 c5 d6 0e 17 5c 22 88 |........|.....\".|
|000016f0| d8 0e 17 3e 83 49 00 d9 | da 0e 18 47 0e 1b 47 5a |...>.I..|...G..GZ|
|00001700| 21 dc b1 03 88 dd 63 88 | c5 de 0e 0b 5c 22 88 0b |!.....c.|....\"..|
|00001710| 16 1f e0 0e 5c 66 21 83 | 61 00 e1 0e 5c 66 21 88 |....\f!.|a...\f!.|
|00001720| e2 65 64 0e 5c 66 e3 e4 | 25 88 2c 0b 89 16 25 87 |.ed.\f..|%.,...%.|
|00001730| 22 20 5b 72 75 6e 2d 68 | 6f 6f 6b 73 20 64 65 73 |" [run-h|ooks des|
|00001740| 6b 74 6f 70 2d 73 61 76 | 65 2d 68 6f 6f 6b 20 65 |ktop-sav|e-hook e|
|00001750| 78 70 61 6e 64 2d 66 69 | 6c 65 2d 6e 61 6d 65 20 |xpand-fi|le-name |
|00001760| 64 69 72 6e 61 6d 65 20 | 64 65 73 6b 74 6f 70 2d |dirname |desktop-|
|00001770| 62 61 73 65 66 69 6c 65 | 6e 61 6d 65 20 6d 61 70 |basefile|name map|
|00001780| 63 61 72 20 23 5b 28 62 | 29 20 22 08 71 88 c1 20 |car #[(b|) ".q.. |
|00001790| c2 20 0b 5c 66 3f 3f 43 | 60 c5 c6 21 0e 07 44 0e |. .\f??C|`..!..D.|
|000017a0| 08 0b c9 3d 83 23 00 0e | 5c 6e 0e 0b 44 82 2f 00 |...=.#..|\n..D./.|
|000017b0| 0b cc 3d 85 2f 00 cd ce | 0e 0f 5c 22 9f 0e 10 d1 |..=./...|..\"....|
|000017c0| 20 d2 1e 13 1e 14 89 1e | 15 83 6f 00 0e 15 40 0e | .......|..o...@.|
|000017d0| 14 9e 89 1e 16 83 54 00 | 0e 16 0e 13 42 16 13 82 |......T.|....B...|
|000017e0| 65 00 0e 15 40 0e 14 9d | 83 65 00 0e 15 40 0e 13 |e...@...|.e...@..|
|000017f0| 42 16 13 29 0e 15 41 89 | 16 15 84 3e 00 0e 13 2b |B..)..A.|...>...+|
|00001800| af 09 87 22 20 5b 62 20 | 62 75 66 66 65 72 2d 66 |..." [b |buffer-f|
|00001810| 69 6c 65 2d 6e 61 6d 65 | 20 62 75 66 66 65 72 2d |ile-name| buffer-|
|00001820| 6e 61 6d 65 20 6d 61 6a | 6f 72 2d 6d 6f 64 65 20 |name maj|or-mode |
|00001830| 61 75 74 6f 2d 66 69 6c | 6c 2d 66 75 6e 63 74 69 |auto-fil|l-functi|
|00001840| 6f 6e 20 6d 61 72 6b 20 | 74 20 6d 61 72 6b 2d 61 |on mark |t mark-a|
|00001850| 63 74 69 76 65 20 62 75 | 66 66 65 72 2d 72 65 61 |ctive bu|ffer-rea|
|00001860| 64 2d 6f 6e 6c 79 20 49 | 6e 66 6f 2d 6d 6f 64 65 |d-only I|nfo-mode|
|00001870| 20 49 6e 66 6f 2d 63 75 | 72 72 65 6e 74 2d 66 69 | Info-cu|rrent-fi|
|00001880| 6c 65 20 49 6e 66 6f 2d | 63 75 72 72 65 6e 74 2d |le Info-|current-|
|00001890| 6e 6f 64 65 20 64 69 72 | 65 64 2d 6d 6f 64 65 20 |node dir|ed-mode |
|000018a0| 6d 61 70 63 61 72 20 63 | 61 72 20 64 69 72 65 64 |mapcar c|ar dired|
|000018b0| 2d 73 75 62 64 69 72 2d | 61 6c 69 73 74 20 64 65 |-subdir-|alist de|
|000018c0| 73 6b 74 6f 70 2d 6c 6f | 63 61 6c 73 2d 74 6f 2d |sktop-lo|cals-to-|
|000018d0| 73 61 76 65 20 62 75 66 | 66 65 72 2d 6c 6f 63 61 |save buf|fer-loca|
|000018e0| 6c 2d 76 61 72 69 61 62 | 6c 65 73 20 6e 69 6c 20 |l-variab|les nil |
|000018f0| 6c 6c 20 6c 6f 63 6c 69 | 73 74 20 6c 6f 63 61 6c |ll locli|st local|
|00001900| 73 20 68 65 72 65 5d 20 | 31 32 5d 20 62 75 66 66 |s here] |12] buff|
|00001910| 65 72 2d 6c 69 73 74 20 | 67 65 74 2d 62 75 66 66 |er-list |get-buff|
|00001920| 65 72 2d 63 72 65 61 74 | 65 20 22 2a 64 65 73 6b |er-creat|e "*desk|
|00001930| 74 6f 70 2a 22 20 62 75 | 66 20 69 6e 66 6f 20 66 |top*" bu|f info f|
|00001940| 69 6c 65 6e 61 6d 65 20 | 65 72 61 73 65 2d 62 75 |ilename |erase-bu|
|00001950| 66 66 65 72 20 64 65 73 | 6b 74 6f 70 2d 68 65 61 |ffer des|ktop-hea|
|00001960| 64 65 72 20 22 3b 3b 20 | 43 72 65 61 74 65 64 20 |der ";; |Created |
|00001970| 22 20 63 75 72 72 65 6e | 74 2d 74 69 6d 65 2d 73 |" curren|t-time-s|
|00001980| 74 72 69 6e 67 20 22 5c | 6e 22 20 22 3b 3b 20 45 |tring "\|n" ";; E|
|00001990| 6d 61 63 73 20 76 65 72 | 73 69 6f 6e 20 22 20 65 |macs ver|sion " e|
|000019a0| 6d 61 63 73 2d 76 65 72 | 73 69 6f 6e 20 22 5c 6e |macs-ver|sion "\n|
|000019b0| 5c 6e 22 20 22 3b 3b 20 | 47 6c 6f 62 61 6c 20 73 |\n" ";; |Global s|
|000019c0| 65 63 74 69 6f 6e 3a 5c | 6e 22 20 64 65 73 6b 74 |ection:\|n" deskt|
|000019d0| 6f 70 2d 6f 75 74 76 61 | 72 20 64 65 73 6b 74 6f |op-outva|r deskto|
|000019e0| 70 2d 67 6c 6f 62 61 6c | 73 2d 74 6f 2d 73 61 76 |p-global|s-to-sav|
|000019f0| 65 20 6b 69 6c 6c 2d 72 | 69 6e 67 20 22 28 73 65 |e kill-r|ing "(se|
|00001a00| 74 71 20 6b 69 6c 6c 2d | 72 69 6e 67 2d 79 61 6e |tq kill-|ring-yan|
|00001a10| 6b 2d 70 6f 69 6e 74 65 | 72 20 28 6e 74 68 63 64 |k-pointe|r (nthcd|
|00001a20| 72 20 22 20 69 6e 74 2d | 74 6f 2d 73 74 72 69 6e |r " int-|to-strin|
|00001a30| 67 20 6b 69 6c 6c 2d 72 | 69 6e 67 2d 79 61 6e 6b |g kill-r|ing-yank|
|00001a40| 2d 70 6f 69 6e 74 65 72 | 20 22 20 6b 69 6c 6c 2d |-pointer| " kill-|
|00001a50| 72 69 6e 67 29 29 5c 6e | 22 20 22 5c 6e 3b 3b 20 |ring))\n|" "\n;; |
|00001a60| 42 75 66 66 65 72 20 73 | 65 63 74 69 6f 6e 3a 5c |Buffer s|ection:\|
|00001a70| 6e 22 20 23 5b 28 6c 29 | 20 22 c0 c1 5c 6e 5c 22 |n" #[(l)| "..\n\"|
|00001a80| 85 11 00 0b 63 88 c4 c5 | 5c 6e 5c 22 88 c6 63 87 |....c...|\n\"..c.|
|00001a90| 22 20 5b 61 70 70 6c 79 | 20 64 65 73 6b 74 6f 70 |" [apply| desktop|
|00001aa0| 2d 73 61 76 65 2d 62 75 | 66 66 65 72 2d 70 20 6c |-save-bu|ffer-p l|
|00001ab0| 20 64 65 73 6b 74 6f 70 | 2d 63 72 65 61 74 65 2d | desktop|-create-|
|00001ac0| 62 75 66 66 65 72 2d 66 | 6f 72 6d 20 6d 61 70 63 |buffer-f|orm mapc|
|00001ad0| 61 72 20 23 5b 28 65 29 | 20 22 c0 c1 5c 6e 21 b1 |ar #[(e)| "..\n!.|
|00001ae0| 02 87 22 20 5b 22 5c 6e | 20 20 22 20 64 65 73 6b |.." ["\n|  " desk|
|00001af0| 74 6f 70 2d 76 61 6c 75 | 65 2d 74 6f 2d 73 74 72 |top-valu|e-to-str|
|00001b00| 69 6e 67 20 65 5d 20 33 | 5d 20 22 29 5c 6e 5c 6e |ing e] 3|] ")\n\n|
|00001b10| 22 5d 20 33 5d 20 64 65 | 66 61 75 6c 74 2d 64 69 |"] 3] de|fault-di|
|00001b20| 72 65 63 74 6f 72 79 20 | 66 69 6c 65 2d 65 78 69 |rectory |file-exi|
|00001b30| 73 74 73 2d 70 20 64 65 | 6c 65 74 65 2d 66 69 6c |sts-p de|lete-fil|
|00001b40| 65 20 77 72 69 74 65 2d | 72 65 67 69 6f 6e 20 6e |e write-|region n|
|00001b50| 69 6c 20 6e 6f 6d 65 73 | 73 61 67 65 20 64 65 73 |il nomes|sage des|
|00001b60| 6b 74 6f 70 2d 64 69 72 | 6e 61 6d 65 5d 20 38 20 |ktop-dir|name] 8 |
|00001b70| 22 5c 0a 53 61 76 65 20 | 74 68 65 20 44 65 73 6b |"\.Save |the Desk|
|00001b80| 74 6f 70 20 66 69 6c 65 | 2e 20 20 50 61 72 61 6d |top file|.  Param|
|00001b90| 65 74 65 72 20 44 49 52 | 4e 41 4d 45 20 73 70 65 |eter DIR|NAME spe|
|00001ba0| 63 69 66 69 65 73 20 77 | 68 65 72 65 20 74 6f 20 |cifies w|here to |
|00001bb0| 73 61 76 65 20 64 65 73 | 6b 74 6f 70 2e 22 20 22 |save des|ktop." "|
|00001bc0| 44 44 69 72 65 63 74 6f | 72 79 20 74 6f 20 73 61 |DDirecto|ry to sa|
|00001bd0| 76 65 20 64 65 73 6b 74 | 6f 70 20 66 69 6c 65 20 |ve deskt|op file |
|00001be0| 69 6e 3a 20 22 5d 29 0a | 28 64 65 66 61 6c 69 61 |in: "]).|(defalia|
|00001bf0| 73 20 27 64 65 73 6b 74 | 6f 70 2d 72 65 6d 6f 76 |s 'deskt|op-remov|
|00001c00| 65 20 23 5b 6e 69 6c 20 | 22 08 85 14 00 08 09 50 |e #[nil |"......P|
|00001c10| 1a c3 10 c4 5c 6e 21 85 | 13 00 c5 5c 6e 21 29 87 |....\n!.|...\n!).|
|00001c20| 22 20 5b 64 65 73 6b 74 | 6f 70 2d 64 69 72 6e 61 |" [deskt|op-dirna|
|00001c30| 6d 65 20 64 65 73 6b 74 | 6f 70 2d 62 61 73 65 66 |me deskt|op-basef|
|00001c40| 69 6c 65 6e 61 6d 65 20 | 66 69 6c 65 6e 61 6d 65 |ilename |filename|
|00001c50| 20 6e 69 6c 20 66 69 6c | 65 2d 65 78 69 73 74 73 | nil fil|e-exists|
|00001c60| 2d 70 20 64 65 6c 65 74 | 65 2d 66 69 6c 65 5d 20 |-p delet|e-file] |
|00001c70| 32 20 22 5c 0a 44 65 6c | 65 74 65 20 74 68 65 20 |2 "\.Del|ete the |
|00001c80| 44 65 73 6b 74 6f 70 20 | 66 69 6c 65 20 61 6e 64 |Desktop |file and|
|00001c90| 20 69 6e 61 63 74 69 76 | 61 74 65 20 74 68 65 20 | inactiv|ate the |
|00001ca0| 64 65 73 6b 74 6f 70 20 | 73 79 73 74 65 6d 2e 22 |desktop |system."|
|00001cb0| 20 6e 69 6c 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 | nil]).(|defalias|
|00001cc0| 20 27 64 65 73 6b 74 6f | 70 2d 72 65 61 64 20 23 | 'deskto|p-read #|
|00001cd0| 5b 6e 69 6c 20 22 c0 19 | c2 c3 5c 66 50 21 83 12 |[nil "..|..\fP!..|
|00001ce0| 00 c5 c3 21 16 06 82 25 | 00 c2 c7 5c 66 50 21 83 |...!...%|...\fP!.|
|00001cf0| 5c 22 00 c5 c7 21 16 06 | 82 25 00 c0 16 06 0e 06 |\"...!..|.%......|
|00001d00| 83 3e 00 c8 0e 06 5c 66 | 50 c9 89 89 24 88 ca cb |.>....\f|P...$...|
|00001d10| 21 88 cc cd 21 82 40 00 | ce 20 29 87 22 20 5b 6e |!...!.@.|. )." [n|
|00001d20| 69 6c 20 66 69 6c 65 6e | 61 6d 65 20 66 69 6c 65 |il filen|ame file|
|00001d30| 2d 65 78 69 73 74 73 2d | 70 20 22 2e 2f 22 20 64 |-exists-|p "./" d|
|00001d40| 65 73 6b 74 6f 70 2d 62 | 61 73 65 66 69 6c 65 6e |esktop-b|asefilen|
|00001d50| 61 6d 65 20 65 78 70 61 | 6e 64 2d 66 69 6c 65 2d |ame expa|nd-file-|
|00001d60| 6e 61 6d 65 20 64 65 73 | 6b 74 6f 70 2d 64 69 72 |name des|ktop-dir|
|00001d70| 6e 61 6d 65 20 22 7e 2f | 22 20 6c 6f 61 64 20 74 |name "~/|" load t|
|00001d80| 20 72 75 6e 2d 68 6f 6f | 6b 73 20 64 65 73 6b 74 | run-hoo|ks deskt|
|00001d90| 6f 70 2d 64 65 6c 61 79 | 2d 68 6f 6f 6b 20 6d 65 |op-delay|-hook me|
|00001da0| 73 73 61 67 65 20 22 44 | 65 73 6b 74 6f 70 20 6c |ssage "D|esktop l|
|00001db0| 6f 61 64 65 64 2e 22 20 | 64 65 73 6b 74 6f 70 2d |oaded." |desktop-|
|00001dc0| 63 6c 65 61 72 5d 20 35 | 20 22 5c 0a 52 65 61 64 |clear] 5| "\.Read|
|00001dd0| 20 74 68 65 20 44 65 73 | 6b 74 6f 70 20 66 69 6c | the Des|ktop fil|
|00001de0| 65 20 61 6e 64 20 74 68 | 65 20 66 69 6c 65 73 20 |e and th|e files |
|00001df0| 69 74 20 73 70 65 63 69 | 66 69 65 73 2e 22 20 6e |it speci|fies." n|
|00001e00| 69 6c 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |il]).(de|falias '|
|00001e10| 64 65 73 6b 74 6f 70 2d | 6c 6f 61 64 2d 64 65 66 |desktop-|load-def|
|00001e20| 61 75 6c 74 20 23 5b 6e | 69 6c 20 22 08 3f 85 0e |ault #[n|il ".?..|
|00001e30| 00 c1 c2 c3 89 23 88 c3 | 89 10 87 22 20 5b 69 6e |.....#..|..." [in|
|00001e40| 68 69 62 69 74 2d 64 65 | 66 61 75 6c 74 2d 69 6e |hibit-de|fault-in|
|00001e50| 69 74 20 6c 6f 61 64 20 | 22 64 65 66 61 75 6c 74 |it load |"default|
|00001e60| 22 20 74 5d 20 34 20 22 | 5c 0a 4c 6f 61 64 20 74 |" t] 4 "|\.Load t|
|00001e70| 68 65 20 60 64 65 66 61 | 75 6c 74 27 20 73 74 61 |he `defa|ult' sta|
|00001e80| 72 74 2d 75 70 20 6c 69 | 62 72 61 72 79 20 6d 61 |rt-up li|brary ma|
|00001e90| 6e 75 61 6c 6c 79 2e 20 | 20 41 6c 73 6f 20 69 6e |nually. | Also in|
|00001ea0| 68 69 62 69 74 20 66 75 | 72 74 68 65 72 20 6c 6f |hibit fu|rther lo|
|00001eb0| 61 64 69 6e 67 0a 6f 66 | 20 69 74 2e 20 20 43 61 |ading.of| it.  Ca|
|00001ec0| 6c 6c 20 74 68 69 73 20 | 66 72 6f 6d 20 79 6f 75 |ll this |from you|
|00001ed0| 72 20 60 2e 65 6d 61 63 | 73 27 20 66 69 6c 65 20 |r `.emac|s' file |
|00001ee0| 74 6f 20 70 72 6f 76 69 | 64 65 20 63 6f 72 72 65 |to provi|de corre|
|00001ef0| 63 74 20 6d 6f 64 65 73 | 20 66 6f 72 0a 61 75 74 |ct modes| for.aut|
|00001f00| 6f 6c 6f 61 64 65 64 20 | 66 69 6c 65 73 2e 22 5d |oloaded |files."]|
|00001f10| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 64 65 73 |).(defal|ias 'des|
|00001f20| 6b 74 6f 70 2d 62 75 66 | 66 65 72 2d 69 6e 66 6f |ktop-buf|fer-info|
|00001f30| 20 23 5b 6e 69 6c 20 22 | 08 c1 3d 85 13 00 c2 c3 | #[nil "|..=.....|
|00001f40| 21 88 c4 0d 40 0d 41 40 | 5c 22 88 c6 87 22 20 5b |!...@.A@|\"..." [|
|00001f50| 6d 61 6d 20 49 6e 66 6f | 2d 6d 6f 64 65 20 72 65 |mam Info|-mode re|
|00001f60| 71 75 69 72 65 20 69 6e | 66 6f 20 49 6e 66 6f 2d |quire in|fo Info-|
|00001f70| 66 69 6e 64 2d 6e 6f 64 | 65 20 6d 69 73 63 20 74 |find-nod|e misc t|
|00001f80| 5d 20 33 20 22 5c 0a 4c | 6f 61 64 20 61 6e 20 69 |] 3 "\.L|oad an i|
|00001f90| 6e 66 6f 20 66 69 6c 65 | 2e 22 5d 29 0a 28 64 65 |nfo file|."]).(de|
|00001fa0| 66 61 6c 69 61 73 20 27 | 64 65 73 6b 74 6f 70 2d |falias '|desktop-|
|00001fb0| 62 75 66 66 65 72 2d 72 | 6d 61 69 6c 20 23 5b 6e |buffer-r|mail #[n|
|00001fc0| 69 6c 20 22 08 c1 3d 85 | 5c 6e 00 c2 c3 c4 8f 87 |il "..=.|\n......|
|00001fd0| 22 20 5b 6d 61 6d 20 72 | 6d 61 69 6c 2d 6d 6f 64 |" [mam r|mail-mod|
|00001fe0| 65 20 65 72 72 6f 72 20 | 28 62 79 74 65 2d 63 6f |e error |(byte-co|
|00001ff0| 64 65 20 22 c0 09 21 88 | c2 87 22 20 5b 72 6d 61 |de "..!.|.." [rma|
|00002000| 69 6c 2d 69 6e 70 75 74 | 20 66 6e 20 74 5d 20 32 |il-input| fn t] 2|
|00002010| 29 20 28 28 66 69 6c 65 | 2d 6c 6f 63 6b 65 64 20 |) ((file|-locked |
|00002020| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 70 21 88 |(byte-co|de ".p!.|
|00002030| c1 87 22 20 5b 6b 69 6c | 6c 2d 62 75 66 66 65 72 |.." [kil|l-buffer|
|00002040| 20 69 67 6e 6f 72 65 64 | 5d 20 32 29 29 29 5d 20 | ignored|] 2)))] |
|00002050| 33 20 22 5c 0a 4c 6f 61 | 64 20 61 6e 20 52 4d 41 |3 "\.Loa|d an RMA|
|00002060| 49 4c 20 66 69 6c 65 2e | 22 5d 29 0a 28 64 65 66 |IL file.|"]).(def|
|00002070| 61 6c 69 61 73 20 27 64 | 65 73 6b 74 6f 70 2d 62 |alias 'd|esktop-b|
|00002080| 75 66 66 65 72 2d 6d 68 | 20 23 5b 6e 69 6c 20 22 |uffer-mh| #[nil "|
|00002090| 08 c1 3d 85 13 00 c2 c3 | 21 88 c4 20 88 c5 0e 06 |..=.....|!.. ....|
|000020a0| 21 88 c7 87 22 20 5b 6d | 61 6d 20 6d 68 2d 66 6f |!..." [m|am mh-fo|
|000020b0| 6c 64 65 72 2d 6d 6f 64 | 65 20 72 65 71 75 69 72 |lder-mod|e requir|
|000020c0| 65 20 6d 68 2d 65 20 6d | 68 2d 66 69 6e 64 2d 70 |e mh-e m|h-find-p|
|000020d0| 61 74 68 20 6d 68 2d 76 | 69 73 69 74 2d 66 6f 6c |ath mh-v|isit-fol|
|000020e0| 64 65 72 20 62 6e 20 74 | 5d 20 32 20 22 5c 0a 4c |der bn t|] 2 "\.L|
|000020f0| 6f 61 64 20 61 20 66 6f | 6c 64 65 72 20 69 6e 20 |oad a fo|lder in |
|00002100| 74 68 65 20 6d 68 20 73 | 79 73 74 65 6d 2e 22 5d |the mh s|ystem."]|
|00002110| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 64 65 73 |).(defal|ias 'des|
|00002120| 6b 74 6f 70 2d 62 75 66 | 66 65 72 2d 64 69 72 65 |ktop-buf|fer-dire|
|00002130| 64 20 23 5b 6e 69 6c 20 | 22 08 c1 3d 85 27 00 c2 |d #[nil |"..=.'..|
|00002140| c3 5c 66 40 21 21 83 1c | 00 c5 5c 66 40 21 88 c6 |.\f@!!..|..\f@!..|
|00002150| c7 5c 66 41 5c 22 88 c8 | 87 c9 ca 5c 66 40 5c 22 |.\fA\"..|...\f@\"|
|00002160| 88 cb cc 21 88 cd 87 22 | 20 5b 6d 61 6d 20 64 69 |...!..."| [mam di|
|00002170| 72 65 64 2d 6d 6f 64 65 | 20 66 69 6c 65 2d 64 69 |red-mode| file-di|
|00002180| 72 65 63 74 6f 72 79 2d | 70 20 64 69 72 65 63 74 |rectory-|p direct|
|00002190| 6f 72 79 2d 66 69 6c 65 | 2d 6e 61 6d 65 20 6d 69 |ory-file|-name mi|
|000021a0| 73 63 20 64 69 72 65 64 | 20 6d 61 70 63 61 72 20 |sc dired| mapcar |
|000021b0| 64 69 72 65 64 2d 6d 61 | 79 62 65 2d 69 6e 73 65 |dired-ma|ybe-inse|
|000021c0| 72 74 2d 73 75 62 64 69 | 72 20 74 20 6d 65 73 73 |rt-subdi|r t mess|
|000021d0| 61 67 65 20 22 44 69 72 | 65 63 74 6f 72 79 20 25 |age "Dir|ectory %|
|000021e0| 73 20 6e 6f 20 6c 6f 6e | 67 65 72 20 65 78 69 73 |s no lon|ger exis|
|000021f0| 74 73 2e 22 20 73 69 74 | 2d 66 6f 72 20 31 20 69 |ts." sit|-for 1 i|
|00002200| 67 6e 6f 72 65 64 5d 20 | 33 20 22 5c 0a 4c 6f 61 |gnored] |3 "\.Loa|
|00002210| 64 20 61 20 64 69 72 65 | 63 74 6f 72 79 20 75 73 |d a dire|ctory us|
|00002220| 69 6e 67 20 64 69 72 65 | 64 2e 22 5d 29 0a 28 64 |ing dire|d."]).(d|
|00002230| 65 66 61 6c 69 61 73 20 | 27 64 65 73 6b 74 6f 70 |efalias |'desktop|
|00002240| 2d 62 75 66 66 65 72 2d | 66 69 6c 65 20 23 5b 6e |-buffer-|file #[n|
|00002250| 69 6c 20 22 08 85 1e 00 | c1 08 21 84 17 00 5c 6e |il "....|..!...\n|
|00002260| 83 1d 00 c3 c4 c5 08 5c | 22 21 83 1d 00 c6 08 21 |.......\|"!.....!|
|00002270| 88 c7 87 c8 87 22 20 5b | 66 6e 20 66 69 6c 65 2d |....." [|fn file-|
|00002280| 65 78 69 73 74 73 2d 70 | 20 64 65 73 6b 74 6f 70 |exists-p| desktop|
|00002290| 2d 6d 69 73 73 69 6e 67 | 2d 66 69 6c 65 2d 77 61 |-missing|-file-wa|
|000022a0| 72 6e 69 6e 67 20 79 2d | 6f 72 2d 6e 2d 70 20 66 |rning y-|or-n-p f|
|000022b0| 6f 72 6d 61 74 20 22 46 | 69 6c 65 20 5c 22 25 73 |ormat "F|ile \"%s|
|000022c0| 5c 22 20 6e 6f 20 6c 6f | 6e 67 65 72 20 65 78 69 |\" no lo|nger exi|
|000022d0| 73 74 73 2e 20 52 65 2d | 63 72 65 61 74 65 3f 20 |sts. Re-|create? |
|000022e0| 22 20 66 69 6e 64 2d 66 | 69 6c 65 20 74 20 69 67 |" find-f|ile t ig|
|000022f0| 6e 6f 72 65 64 5d 20 34 | 20 22 5c 0a 4c 6f 61 64 |nored] 4| "\.Load|
|00002300| 20 61 20 66 69 6c 65 2e | 22 5d 29 0a 28 62 79 74 | a file.|"]).(byt|
|00002310| 65 2d 63 6f 64 65 20 22 | c0 c1 c2 5c 22 88 c0 c3 |e-code "|...\"...|
|00002320| c4 5c 22 88 c5 c6 21 87 | 22 20 5b 64 65 66 61 6c |.\"...!.|" [defal|
|00002330| 69 61 73 20 64 65 73 6b | 74 6f 70 2d 63 72 65 61 |ias desk|top-crea|
|00002340| 74 65 2d 62 75 66 66 65 | 72 20 23 5b 28 76 65 72 |te-buffe|r #[(ver|
|00002350| 20 66 6e 20 62 6e 20 6d | 61 6d 20 6d 69 6d 20 70 | fn bn m|am mim p|
|00002360| 74 20 6d 6b 20 72 6f 20 | 6d 69 73 63 20 26 6f 70 |t mk ro |misc &op|
|00002370| 74 69 6f 6e 61 6c 20 6c | 6f 63 61 6c 73 29 20 22 |tional l|ocals) "|
|00002380| 08 c1 89 1a 1b 1c 0b 84 | 1a 00 5c 66 83 1a 00 5c |........|..\f...\|
|00002390| 66 40 89 12 20 13 5c 66 | 41 14 82 06 00 0b c5 3d |f@.. .\f|A......=|
|000023a0| 85 97 00 c6 20 0e 07 9a | 84 2d 00 c8 0e 07 21 88 |.... ...|.-....!.|
|000023b0| c9 0e 5c 6e 40 83 38 00 | cb 82 39 00 cc 21 88 0e |..\n@.8.|..9..!..|
|000023c0| 0d 62 88 0e 0e 3a 83 54 | 00 cf 0e 0e 40 21 88 0e |.b...:.T|....@!..|
|000023d0| 0e 41 40 16 10 82 59 00 | cf 0e 0e 21 88 0e 11 83 |.A@...Y.|...!....|
|000023e0| 62 00 0e 11 16 12 0e 13 | 85 97 00 0e 13 40 89 1e |b.......|.....@..|
|000023f0| 14 3a 83 82 00 d5 0e 14 | 40 21 88 0e 14 40 0e 14 |.:......|@!...@..|
|00002400| 41 4c 88 82 8c 00 d5 0e | 14 21 88 d6 0e 14 21 88 |AL......|.!....!.|
|00002410| 29 0e 13 41 89 16 13 84 | 67 00 c1 2b 87 22 20 5b |)..A....|g..+." [|
|00002420| 64 65 73 6b 74 6f 70 2d | 62 75 66 66 65 72 2d 68 |desktop-|buffer-h|
|00002430| 61 6e 64 6c 65 72 73 20 | 6e 69 6c 20 68 61 6e 64 |andlers |nil hand|
|00002440| 6c 65 72 20 72 65 73 75 | 6c 74 20 68 6c 69 73 74 |ler resu|lt hlist|
|00002450| 20 74 20 62 75 66 66 65 | 72 2d 6e 61 6d 65 20 62 | t buffe|r-name b|
|00002460| 6e 20 72 65 6e 61 6d 65 | 2d 62 75 66 66 65 72 20 |n rename|-buffer |
|00002470| 61 75 74 6f 2d 66 69 6c | 6c 2d 6d 6f 64 65 20 6d |auto-fil|l-mode m|
|00002480| 69 6d 20 31 20 30 20 70 | 74 20 6d 6b 20 73 65 74 |im 1 0 p|t mk set|
|00002490| 2d 6d 61 72 6b 20 6d 61 | 72 6b 2d 61 63 74 69 76 |-mark ma|rk-activ|
|000024a0| 65 20 72 6f 20 62 75 66 | 66 65 72 2d 72 65 61 64 |e ro buf|fer-read|
|000024b0| 2d 6f 6e 6c 79 20 6c 6f | 63 61 6c 73 20 74 68 69 |-only lo|cals thi|
|000024c0| 73 20 6d 61 6b 65 2d 6c | 6f 63 61 6c 2d 76 61 72 |s make-l|ocal-var|
|000024d0| 69 61 62 6c 65 20 6d 61 | 6b 75 6e 62 6f 75 6e 64 |iable ma|kunbound|
|000024e0| 5d 20 34 5d 20 64 65 73 | 6b 74 6f 70 2d 62 75 66 |] 4] des|ktop-buf|
|000024f0| 66 65 72 20 23 5b 28 66 | 6e 20 62 6e 20 6d 61 6d |fer #[(f|n bn mam|
|00002500| 20 6d 69 6d 20 70 74 20 | 6d 6b 20 72 6f 20 74 6c | mim pt |mk ro tl|
|00002510| 20 66 63 20 63 66 73 20 | 63 72 20 6d 69 73 63 29 | fc cfs |cr misc)|
|00002520| 20 22 c0 c1 5c 6e 0b 5c | 66 0d 41 0e 06 0e 07 0e | "..\n.\|f.A.....|
|00002530| 08 0e 09 ca 0e 0b 42 cc | 0e 0d 42 ce 0e 0f 42 d0 |......B.|..B...B.|
|00002540| 0e 11 42 d2 0d 40 42 af | 05 26 5c 6e 87 22 20 5b |..B..@B.|.&\n." [|
|00002550| 64 65 73 6b 74 6f 70 2d | 63 72 65 61 74 65 2d 62 |desktop-|create-b|
|00002560| 75 66 66 65 72 20 32 30 | 35 20 66 6e 20 62 6e 20 |uffer 20|5 fn bn |
|00002570| 6d 61 6d 20 6d 69 6d 20 | 70 74 20 6d 6b 20 72 6f |mam mim |pt mk ro|
|00002580| 20 6d 69 73 63 20 74 72 | 75 6e 63 61 74 65 2d 6c | misc tr|uncate-l|
|00002590| 69 6e 65 73 20 74 6c 20 | 66 69 6c 6c 2d 63 6f 6c |ines tl |fill-col|
|000025a0| 75 6d 6e 20 66 63 20 63 | 61 73 65 2d 66 6f 6c 64 |umn fc c|ase-fold|
|000025b0| 2d 73 65 61 72 63 68 20 | 63 66 73 20 63 61 73 65 |-search |cfs case|
|000025c0| 2d 72 65 70 6c 61 63 65 | 20 63 72 20 6f 76 65 72 |-replace| cr over|
|000025d0| 77 72 69 74 65 2d 6d 6f | 64 65 5d 20 31 36 5d 20 |write-mo|de] 16] |
|000025e0| 70 72 6f 76 69 64 65 20 | 64 65 73 6b 74 6f 70 5d |provide |desktop]|
|000025f0| 20 33 29 0a             |                         | 3).    |        |
+--------+-------------------------+-------------------------+--------+--------+